home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
prolog
/
ai.prl
/
opnprlg1.hqx
/
Open Prolog
/
Open Prolog.rsrc
/
CODE_16_breakpointer.txt
< prev
next >
Wrap
Text File
|
1993-04-15
|
6KB
|
109 lines
# near model CODE resource
# entry label at 0x0000
export_360:
entry:
00000000 4E56 FEEC link A6, -0x0114
00000004 48E7 E0C0 movem.l -[A7], D0,D1,D2,A0,A1
00000008 7001 moveq.l D0, 0x01
0000000A 322E 000C move.w D1, [A6 + 0xC]
0000000E 0601 0030 addi.b D1, 0x30 /* '0' */
00000012 B22D EE6B cmp.b D1, [A5 - 0x1195]
00000016 6B00 00DE bmi +0xE0 /* 000000F6 */
0000001A 487A 010C pea.l [PC + 0x10C /* 00000128 */]
0000001E 487A 0108 pea.l [PC + 0x108 /* 00000128 */]
00000022 4EAD 0B92 jsr [A5 + 0xB92]
00000026 2F2E 0008 move.l -[A7], [A6 + 0x8]
0000002A 42A7 clr.l -[A7]
0000002C 42A7 clr.l -[A7]
0000002E 42A7 clr.l -[A7]
00000030 A98B trap ParamText
00000032 4EAD 098A jsr [A5 + 0x98A]
00000036 4FEF FFFC lea.l A7, [A7 - 0x4]
0000003A 3F3C 0081 move.w -[A7], 0x81
0000003E 4EAD 0C42 jsr [A5 + 0xC42]
00000042 3F3C 0081 move.w -[A7], 0x81
00000046 42A7 clr.l -[A7]
00000048 2F3C FFFF FFFF move.l -[A7], 0xFFFFFFFF
0000004E A97C trap GetNewDialog
00000050 2D57 FFFC move.l [A6 - 0x4], [A7]
00000054 3F3C 0008 move.w -[A7], 0x8
00000058 486E FFF8 pea.l [A6 - 0x8]
0000005C 486E FFF4 pea.l [A6 - 0xC]
00000060 486E FFEC pea.l [A6 - 0x14]
00000064 A98D trap GetDialogItem/GetDItem
label00000066:
00000066 3D6D EE6A FEEC move.w [A6 - 0x114], [A5 - 0x1196]
0000006C 2F2E FFF4 move.l -[A7], [A6 - 0xC]
00000070 486E FEEC pea.l [A6 - 0x114]
00000074 A98F trap SetDialogItemText/SetIText
00000076 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000007A 3F3C 0008 move.w -[A7], 0x8
0000007E 4267 clr.w -[A7]
00000080 3F3C 0003 move.w -[A7], 0x3
00000084 A97E trap SelectDialogItemText/SelIText
00000086 3F3C 0004 move.w -[A7], 0x4
0000008A A9C8 trap SysBeep
0000008C 486D 0BEA pea.l [A5 + 0xBEA]
00000090 486E FFFA pea.l [A6 - 0x6]
00000094 A991 trap ModalDialog
00000096 2F2E FFF4 move.l -[A7], [A6 - 0xC]
0000009A 486E FEEC pea.l [A6 - 0x114]
0000009E A990 trap GetDialogItemText/GetIText
000000A0 0C2E 0001 FEEC cmpi.b [A6 - 0x114], 0x1
000000A6 66BE bne -0x40 /* 00000066 */
000000A8 0C2E 0030 FEED cmpi.b [A6 - 0x113], 0x30 /* '0' */
000000AE 65B6 bcs -0x48 /* 00000066 */
000000B0 0C2E 0039 FEED cmpi.b [A6 - 0x113], 0x39 /* '9' */
000000B6 6EAE bgt -0x50 /* 00000066 */
000000B8 3B6E FEEC EE6A move.w [A5 - 0x1196], [A6 - 0x114]
000000BE 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000C2 A983 trap DisposeDialog
000000C4 302E FFFA move.w D0, [A6 - 0x6]
000000C8 0C40 0004 cmpi.w D0, 0x4
000000CC 6604 bne +0x6 /* 000000D2 */
000000CE 4EED 04CA jmp [A5 + 0x4CA]
label000000D2:
000000D2 0C40 0003 cmpi.w D0, 0x3
000000D6 6618 bne +0x1A /* 000000F0 */
000000D8 4FEF FFFE lea.l A7, [A7 - 0x2]
000000DC 3F3C 0031 move.w -[A7], 0x31 /* '1' */
000000E0 4FEF FFFC lea.l A7, [A7 - 0x4]
000000E4 4EAD 0CF2 jsr [A5 + 0xCF2]
000000E8 4FEF 0002 lea.l A7, [A7 + 0x2]
000000EC 303C 0001 move.w D0, 0x1
label000000F0:
000000F0 0C40 0002 cmpi.w D0, 0x2
000000F4 6718 beq +0x1A /* 0000010E */
label000000F6:
000000F6 302E 000E move.w D0, [A6 + 0xE]
000000FA 2D6E 0004 000C move.l [A6 + 0xC], [A6 + 0x4]
00000100 44C0 move.b D0, CCR
00000102 4CDF 0307 movem.l A1,A0,D2,D1,D0, [A7]+
00000106 4E5E unlink A6
00000108 4FEF 0008 lea.l A7, [A7 + 0x8]
0000010C 4E75 rts
label0000010E:
0000010E 302E 000E move.w D0, [A6 + 0xE]
00000112 2D6E 0004 000C move.l [A6 + 0xC], [A6 + 0x4]
00000118 44C0 move.b D0, CCR
0000011A 4CDF 0307 movem.l A1,A0,D2,D1,D0, [A7]+
0000011E 4E5E unlink A6
00000120 4FEF 0004 lea.l A7, [A7 + 0x4]
00000124 ABFF trap DebugStr
00000126 4E75 rts
00000128 0000 3B7C ori.b D0, 0x7C /* '|' */
export_361: // at 0000012A (misaligned)
0000012C 0139 EE6A 4E75 btst [0xEE6A4E75], D0
00000132 9457 sub.w D2, [A7]
00000134 5249 addq.w A1, 1
00000136 5445 addq.w D5, 2
00000138 4445 neg.w D5
0000013A 4255 clr.w [A5]
0000013C 4749 chk.w D3, A1
0000013E 4E49 trap 9
00000140 5449 addq.w A1, 2
00000142 414C chk.w D0, A4
00000144 4953 chk.w D4, [A3]
00000146 4520 .invalid 2, -[A0] // invalid opcode 4 with b == 4
00000148 0000 .incomplete